home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / devdocs.lha / Basic / test.bas (.txt) < prev    next >
AmigaBASIC Source Code  |  1991-12-11  |  612b  |  35 lines
  1. DECLARE FUNCTION OpenScreen24& LIBRARY
  2. DECLARE FUNCTION LoadIFF24& LIBRARY
  3.  
  4.  
  5. LIBRARY "opal.library"
  6.  
  7. INPUT "Lay a file on me:",File$
  8. File$ = File$+CHR$(0)
  9. FileName& = SADD (File$)
  10. OScrn& = LoadIFF24& (0,FileName&,0)
  11. CALL Refresh24
  12. CALL PaletteMap24 (1)
  13. CALL FadeIn24 (300)
  14. FOR i=0 TO 320
  15.   CALL Scroll24 (1,0)
  16. NEXT i
  17.  
  18. FOR i=0 TO 320
  19.   CALL Scroll24 (-1,0)
  20. NEXT i
  21.  
  22. FOR y& = 50 TO 100
  23.   FOR x&=200 TO 300
  24.     CALL WritePixel24 (OScrn&,x&,y&)
  25.   NEXT x&
  26. NEXT y& 
  27.  
  28. CALL Refresh24
  29. FOR i=0 TO 10000
  30. NEXT i
  31.  
  32. CALL CloseScreen24
  33. LIBRARY CLOSE
  34.  
  35.